home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / new_file / programm / gemfsc20 / gemfsc20.lzh / GEMFUNCS / RSCGSTR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-20  |  789 b   |  32 lines
  1. /**************************************************************************
  2.  * RSCGSTR.C - Get pointers to object strings from within a tree.
  3.  *************************************************************************/
  4.  
  5. #include "gemfintl.h"
  6.  
  7. #ifdef GEMFAST_PROTOS
  8.   void rsc_gstrings(OBJECT *thetree, short object, char **ppretstr, ...)
  9. #else
  10.   void rsc_gstrings(thetree, object, ppretstr)
  11.     OBJECT            *thetree;
  12.     short            object;
  13.     char            **ppretstr;
  14. #endif
  15. {
  16.     register OBJECT *ptree;
  17.     register char  **ppobjstr;
  18.     va_list          args;
  19.  
  20.     ptree = thetree;
  21.  
  22.     va_start(args, ppretstr);
  23.     while (object >= 0) {
  24.         ppobjstr  = obj_ppstring(&ptree[object]);
  25.         *ppretstr = *ppobjstr;
  26.         object      = va_arg(args, short);
  27.         ppretstr  = va_arg(args, char **);
  28.     }
  29.  
  30.     va_end(args);
  31. }
  32.